home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / disk-tools / dir-tools / filequest10 / install_english < prev    next >
Encoding:
Text File  |  1996-03-03  |  8.3 KB  |  391 lines
  1. ;
  2. ; /*
  3. ; **    $VER: Installation de FileQuest 1.0
  4. ; **
  5. ; **    Scripte "Installer" pour FileQuest.
  6. ; **/
  7.  
  8.         (set UserLevel.old @user-level)
  9.  
  10. ; Initialisation des messages.
  11.  
  12.         (set Language 16)
  13.  
  14.         (set #WrongKickStart "\nAppAssign need OS2.04+")
  15.  
  16.  
  17.  
  18. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  19.  
  20.         (if (< (/ (getversion) 65536) 37)
  21.           (abort #WrongKickStart)
  22.         )
  23.  
  24.  
  25. ; /*
  26. ; **    Textes d'aides
  27. ; **/
  28. (set LangueHelp
  29.     "Select which language you want the documentation in.")
  30.  
  31. (set IconHelp
  32.     "What kind of icons do you want:\n\n- 4 colors:          Standards icons\n- 8 colors MagicWB : Standard MagicWB")
  33.  
  34. (set bguiHelp
  35.     "The bgui.library makes it easier to create a nice GUI.\n\nbgui.library   (C) 1993-1996 Jan van den Baard")
  36.  
  37. (set screennotifyHelp
  38.     "screennotify (C) Stejan Becker.\nNot necessary, allow to know when the Workbench ask to close." )
  39.  
  40. (set SaveAssign
  41.     "A FileQuest: assign will add in the user-startup. This assign is necessary.")
  42.  
  43. ( set DefConfig
  44.     "Choose a configuration-file already made." )
  45.  
  46.  
  47. ;
  48. ; Répertoire de destination
  49. ; *************************
  50. ;
  51.  
  52. (set Path.source (pathonly @icon) )
  53.  
  54. (set  Path.dest
  55.         (askdir
  56.                 (prompt "\nSelect or create a directory to install AppAssign in.\n")
  57.                 (help @askdir-help)
  58.                 (default "Sys:")
  59.         )
  60. )
  61.  
  62. ; Création du répertoire
  63. ; **********************
  64. ;
  65. (set Path.dest (tackon Path.dest "FileQuest"))
  66. (makedir Path.dest (infos) )
  67.  
  68.  
  69. ; Copie des executables
  70. ; *********************
  71. ;
  72. (copyfiles
  73.         (prompt "Copy FileQuest")
  74.         (help @copyfiles-help)
  75.         (source Path.source)
  76.         (dest Path.dest)
  77.         (choices "FileQuest" "FileQuest.info")
  78. )
  79.  
  80. (set ConfigPath (tackon Path.dest "Config"))
  81. (makedir ConfigPath (infos))
  82.  
  83. (copyfiles
  84.         (prompt "Copy ConfigFileQuest")
  85.         (help @copyfiles-help)
  86.         (source Path.source)
  87.         (dest ConfigPath)
  88.         (choices "Config/ConfigFileQuest" "Config/ConfigFileQuest.info")
  89. )
  90.  
  91.  
  92.  
  93.  
  94. ; Copie du répertoire Extras
  95. ; **************************
  96. (copyfiles
  97.     (prompt "Copy FileQuest tools")
  98.     (source Path.source)
  99.     (dest   (tackon Path.dest "Extras"))
  100.     (choices "Extras/")
  101. )
  102.  
  103. (copyfiles
  104.     (prompt "Copy FileQuest tools")
  105.     (source Path.source)
  106.     (dest   Path.dest)
  107.     (choices "Extras.info")
  108. )
  109.  
  110.  
  111. ; Copie de la Thinpaz.font
  112. ; ************************
  113. ;
  114. (copyfiles
  115.     (prompt "Copy Thinpaz.font")
  116.     (source Path.source)
  117.     (dest   "Fonts:")
  118.     (choices "Fonts/Thinpaz" "Fonts/Thinpaz.font")
  119. )
  120.  
  121.  
  122.  
  123. ; Copie de la documentation
  124. ; *************************
  125. ;
  126. (set Doc (askchoice
  127.             (prompt "Copy FileQuest documentation")
  128.             (choices "Française" "Anglaise" )
  129.             (help LangueHelp)
  130.             (default 1)
  131.  
  132.     )
  133. )
  134.  
  135.  
  136.     (if (= Doc 0)
  137.         (copyfiles
  138.             (source "FileQuest_FR.guide")
  139.             (dest Path.dest)
  140.             (newname "FileQuest.guide")
  141.             (infos)
  142.         )
  143.     )
  144.  
  145.     (if (= Doc 1)
  146.         (copyfiles
  147.             (source "FileQuest_ENG.guide")
  148.             (dest Path.dest)
  149.             (newname "FileQuest.guide")
  150.             (infos)
  151.         )
  152.     )
  153.  
  154.  
  155.  
  156. ; On copie les icônes
  157. ; *******************
  158. ;
  159. (set Icon (askchoice
  160.             (prompt "What kind of icon do you want ?")
  161.             (choices "4 colors" "MagicWB" )
  162.             (default 1)
  163.             (help IconHelp)
  164.     )
  165. )
  166.  
  167.     ; 4 couleurs ?
  168.     ; **********
  169.     (if (= Icon 0)
  170.         (
  171.         (copyfiles
  172.             (source "Icons/FileQuest.info")
  173.             (dest Path.dest)
  174.             (newname "FileQuest.info")
  175.         )
  176.  
  177.         (copyfiles
  178.             (source "Icons/Guide.info")
  179.             (dest Path.dest)
  180.             (newname "FileQuest.guide.info")
  181.         )
  182.  
  183.         (copyfiles
  184.             (source "Icons/ConfigFileQuest.info")
  185.             (dest ConfigPath)
  186.             (newname "ConfigFileQuest.info")
  187.         )
  188.  
  189.         )
  190.     )
  191.  
  192.  
  193.  
  194.  
  195.  
  196. ; Copie de la bgui.library
  197. ; ************************
  198. (copylib
  199.     (prompt "Copy the bgui.library")
  200.     (source "libs/bgui.library")
  201.     (dest "Libs:")
  202.     (help bguiHelp)
  203.     (confirm)
  204. )
  205.  
  206. ; Copie de la screennotify.library
  207. ; ********************************
  208. (copylib
  209.     (prompt "Copy the screennotify.library")
  210.     (source "libs/screennotify.library")
  211.     (dest "Libs:")
  212.     (help screennotifyHelp)
  213.     (confirm)
  214. )
  215.  
  216.  
  217. ; Configuration par defaut
  218. ; ************************
  219. (set Config (askchoice
  220.                 (prompt "Which already-made configuration do you want ?")
  221.                 (choices "HIRES Français" "ENTRELACEE Français" "HIRES English" "LACE English")
  222.                 (help DefConfig)
  223.                 (default 2)
  224.         )
  225. )
  226.  
  227. (set DestName (tackon Path.dest "Config"))
  228.  
  229.     ; /*
  230.     ; **    Backup old file
  231.     ; **/
  232.     (rename (tackon DestName "FileQuest.Prefs") (tackon DestName "FileQuest.Prefs.OLD"))
  233.     (rename (tackon DestName "FileQuest.FileTypes") (tackon DestName "FileQuest.FileTypes.OLD"))
  234.     (rename (tackon DestName "FileQuest.PopupMenu") (tackon DestName "FileQuest.PopupMenu.OLD"))
  235.  
  236.  
  237.  
  238.     ; HIRES Français
  239.     ; **************
  240.     ;
  241.     (if (= Config 0)
  242.     (
  243.         (copyfiles
  244.             (source "Config/Prefs_Storage/FileQuest.Prefs.HIRES.FR")
  245.             (dest DestName)
  246.             (newname "FileQuest.Prefs")
  247.         )
  248.         (copyfiles
  249.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.FR")
  250.             (dest DestName)
  251.             (newname "FileQuest.PopupMenu")
  252.         )
  253.         (copyfiles
  254.             (source "Config/Prefs_Storage/FileQuest.FileTypes.FR")
  255.             (dest DestName)
  256.             (newname "FileQuest.FileTypes")
  257.         )
  258.     )
  259.     )
  260.  
  261.     ; HIRES LACE
  262.     ; **********
  263.     ;
  264.     (if (= Config 1)
  265.     (
  266.         (copyfiles
  267.             (source "Config/Prefs_Storage/FileQuest.Prefs.LACE.FR")
  268.             (dest DestName)
  269.             (newname "FileQuest.Prefs")
  270.         )
  271.         (copyfiles
  272.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.FR")
  273.             (dest DestName)
  274.             (newname "FileQuest.PopupMenu")
  275.         )
  276.         (copyfiles
  277.             (source "Config/Prefs_Storage/FileQuest.FileTypes.FR")
  278.             (dest DestName)
  279.             (newname "FileQuest.FileTypes")
  280.         )
  281.     )
  282.     )
  283.  
  284.     ; HIRES English
  285.     ; *************
  286.     ;
  287.     (if (= Config 2)
  288.     (
  289.         (copyfiles
  290.             (source "Config/Prefs_Storage/FileQuest.Prefs.HIRES.ENG")
  291.             (dest DestName)
  292.             (newname "FileQuest.Prefs")
  293.         )
  294.         (copyfiles
  295.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.ENG")
  296.             (dest DestName)
  297.             (newname "FileQuest.PopupMenu")
  298.         )
  299.         (copyfiles
  300.             (source "Config/Prefs_Storage/FileQuest.FileTypes.ENG")
  301.             (dest DestName)
  302.             (newname "FileQuest.FileTypes")
  303.         )
  304.     )
  305.     )
  306.  
  307.     ; HIRES Lace English
  308.     ; ******************
  309.     ;
  310.     (if (= Config 3)
  311.     (
  312.         (copyfiles
  313.             (source "Config/Prefs_Storage/FileQuest.Prefs.LACE.ENG")
  314.             (dest DestName)
  315.             (newname "FileQuest.Prefs")
  316.         )
  317.         (copyfiles
  318.             (source "Config/Prefs_Storage/FileQuest.PopupMenu.ENG")
  319.             (dest DestName)
  320.             (newname "FileQuest.PopupMenu")
  321.         )
  322.         (copyfiles
  323.             (source "Config/Prefs_Storage/FileQuest.FileTypes.ENG")
  324.             (dest DestName)
  325.             (newname "FileQuest.FileTypes")
  326.         )
  327.     )
  328.     )
  329.  
  330.  
  331.  
  332.  
  333.  
  334. ; Parametrage du programme
  335. ; ************************
  336.  
  337. ; On prend le chemin de destination et le nom
  338. (set DestName (tackon Path.dest "FileQuest"))
  339.  
  340.  
  341. ; ************
  342. ; * TOOLTYPE *
  343. ; ************
  344. (set Icon (askchoice
  345.             (prompt "Do you want to always have an AppIcon on the WB ?")
  346.             (choices "Yes" "No")
  347.             (help Refresh)
  348.     )
  349. )
  350.  
  351.     (if (= Icon 0)
  352.         (tooltype
  353.             (settooltype "APPICON" "YES")
  354.             (dest DestName)
  355.         )
  356.     )
  357.  
  358.     (if (= Icon 1)
  359.         (tooltype
  360.             (settooltype "APPICON" "NO" )
  361.             (dest DestName)
  362.         )
  363.     )
  364.  
  365.  
  366. ; **********************
  367. ; * Assigne FileQuest: *
  368. ; **********************
  369.  
  370. (set Icon (cat "c:Assign FileQuest: " Path.dest) )
  371.  
  372. (startup "FileQuest"
  373.     (prompt "Adding a FileQuest: assign to your user-startup" )
  374.     (command Icon )
  375.     (help SaveAssign)
  376. )
  377.  
  378. (makeassign "Filequest" Path.dest)
  379.  
  380.  
  381. ; /*
  382. ; **    This is THE END...
  383. ; **/
  384.  
  385. (message "\nPlease read documentation for other options")
  386.  
  387.  
  388. (set @default-dest Path.dest )
  389.         (exit)
  390.  
  391.